library(tidyverse)
library(dplyr)
library(ggplot2)
library(plotly)
Data Import
records <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2021/2021-05-25/records.csv')
Data Wrangle
records1 <- records %>%
filter(!(track %in% "Luigi Raceway")) %>%
filter(date >= "2000-10-10" &
date <= "2021-02-25") %>%
filter(record_duration >= 321L & record_duration <=
3659L)
p <- ggplot(data = records1, aes(x = track, group = player)) +
geom_bar(fill = "#0c4c8a") +
theme_minimal()
p

ggplotly(p)
records2 <- records %>%
filter(type %in% "Three Lap") %>%
filter(date >= "2011-06-30" & date <=
"2021-02-25")
p2 <- ggplot(data=records2, aes(x = shortcut, y = time, fill = player)) +
geom_boxplot() +
scale_fill_hue() +
theme_minimal()
ggplotly(p2)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayBEUyBXb3JrZmxvdyAtIHVwZGF0ZSAyIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgpgYGB7ciBtZXNzYWdlPUZBTFNFfQpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShkcGx5cikKbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KHBsb3RseSkKYGBgCgpEYXRhIEltcG9ydAoKYGBge3IgbWVzc2FnZT1GQUxTRX0KcmVjb3JkcyA8LSByZWFkcjo6cmVhZF9jc3YoJ2h0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9yZm9yZGF0YXNjaWVuY2UvdGlkeXR1ZXNkYXkvbWFzdGVyL2RhdGEvMjAyMS8yMDIxLTA1LTI1L3JlY29yZHMuY3N2JykKCmBgYAoKRGF0YSBXcmFuZ2xlCgpgYGB7cn0KcmVjb3JkczEgPC0gcmVjb3JkcyAlPiUKIGZpbHRlcighKHRyYWNrICVpbiUgIkx1aWdpIFJhY2V3YXkiKSkgJT4lCiBmaWx0ZXIoZGF0ZSA+PSAiMjAwMC0xMC0xMCIgJiAKICAgIGRhdGUgPD0gIjIwMjEtMDItMjUiKSAlPiUKIGZpbHRlcihyZWNvcmRfZHVyYXRpb24gPj0gMzIxTCAmIHJlY29yZF9kdXJhdGlvbiA8PSAKICAgIDM2NTlMKSAKYGBgCgoKYGBge3J9CgpwIDwtIGdncGxvdChkYXRhID0gcmVjb3JkczEsIGFlcyh4ID0gdHJhY2ssIGdyb3VwID0gcGxheWVyKSkgKwogICAgICAgICAgICBnZW9tX2JhcihmaWxsID0gIiMwYzRjOGEiKSArCiAgdGhlbWVfbWluaW1hbCgpCgpwCgpgYGAKCgpgYGB7cn0KZ2dwbG90bHkocCkKYGBgCgpgYGB7cn0KCnJlY29yZHMyIDwtIHJlY29yZHMgJT4lCiBmaWx0ZXIodHlwZSAlaW4lICJUaHJlZSBMYXAiKSAlPiUKIGZpbHRlcihkYXRlID49ICIyMDExLTA2LTMwIiAmIGRhdGUgPD0gCiAgICAiMjAyMS0wMi0yNSIpCgpgYGAKCmBgYHtyfQogIHAyIDwtIGdncGxvdChkYXRhPXJlY29yZHMyLCBhZXMoeCA9IHNob3J0Y3V0LCB5ID0gdGltZSwgZmlsbCA9IHBsYXllcikpICsKIGdlb21fYm94cGxvdCgpICsKIHNjYWxlX2ZpbGxfaHVlKCkgKwogdGhlbWVfbWluaW1hbCgpCmBgYAoKCgpgYGB7cn0KZ2dwbG90bHkocDIpCmBgYAoKCgo=